===========================================================================
 BBS: The Abacus * HST/DS * Potterville, MI
Date: 03-15-93 (15:41)             Number: 232
From: DANNY ROBINSON               Refer#: NONE
  To: ROB MCKEE                     Recvd: NO  
Subj: Carrier detection              Conf: (35) Quick Basi
---------------------------------------------------------------------------
I tried out your carrier detect routine.  You should look over it again.  I wrot
e a small program which will dial the number to one of my local BBS's and then e
nter an endless loop which monitors the carrier using your routine and prints th
e result.  It returned 0 even when carrier was present.
I did rewrite it somewhat, but I don't think I did anything which would alter th
e result returned...

DEFINT A-Z
SUB DetectCarrier(cd)

SELECT CASE Port               ' This variable was COMMON SHARED
                               ' throughout the program.  Port=1
CASE 1
b% = &H3F8

CASE 2
b% = &H2F8

CASE 3
b% = &H3E8

CASE 4
b% = &H2E8

END SELECT

cd = ((INP(b%) + 6) AND &H80) > 0
if cd = -1 THEN REM * Carrier detected *

END SUB

Did I do anything wrong?  I would use this routine if it would work.
The fossil carrier detect routine I have works great on every machine I've tried
 it on except a friend's Packard Bell 386SX/16.
It returns carrier=true no matter what.  Could be a dip switch on the modem, or
it could be because it is a non-standard machine.  I
don't know.  I'd like to have a carrier detect routine that would work on all sy
stems regardless of standard/non-standard or if a fossil is loaded or not.

Thanks.  (*Danny*)
---
 * Origin: Someone stole my origin line! (1:2260/9)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20